home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / dis1013.d64 / tombola pac (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  3KB  |  109 lines
  1. 2 G=1:P=60:Y=110:GOSUB200:GOSUB4000
  2. 5 REM TOMBOLA PAC
  3. 6 REM VON PETER DIEHM 23.4.1991
  4. 7 REM (W) FUER PUBLIC DOMAIN
  5. 8 A=20:A=A+INT(12*RND(1))+1::S=1
  6. 10 POKE 53280,0:POKE53281,0:PRINTCHR$(142)"[147]":POKE 650,255:POKE657,128
  7. 11 REM START
  8. 12 FORT=1TO20:PRINT"--";:NEXT
  9. 14 PRINT"              TOMBOLA PAC"
  10. 15 PRINT"     (W) BY P.D. FUER DEN PD GEBRAUCH
  11. 18 [129]T[178]1[164]20:[153]"--";:[130]
  12. 20 [141] 1000
  13. 25 [129]I[178]1[164]20:[153]"--";:[130]
  14. 28 [153]"    1    2     3    4    5    6":[141] 150
  15. 29 [151] V[170]0,P:[151]V[170]1,Y
  16. 30 [161] D$:[139]D$[178]"" [167]30
  17. 32 [139] D$[178]"+" [167] G[178]G[170]1
  18. 34 [139] D$[178]"-" [167] G[178]G[171]1
  19. 36 [139] D$[178]"^" [167] 50
  20. 38 [139] G[178]7 [167] G[178]1
  21. 39 [139] G[178]0 [167] G[178]6
  22. 40 [139] G[178]1 [167] P[178]60:Y[178]110
  23. 41 [139] G[178]2 [167]P[178]100:Y[178]110
  24. 42 [139] G[178]3 [167]P[178]140:Y[178]110
  25. 43 [139] G[178]4 [167] P[178]180:Y[178]110
  26. 44 [139] G[178]5 [167] P[178]220:Y[178]110
  27. 45 [139] G[178]6 [167] P[178]255:Y[178]110
  28. 49 [137] 29
  29. 50 [153][166]3)"OK.
  30. 52 PRINTSPC(3)"DU ZIEHST DAS LOS"G""
  31. 53 FORT=1TO100:POKEV+39,T:NEXTT:POKEV+39,7
  32. 54 IF G=F THEN W=INT(11*RND(1))+1:PRINTSPC(3)"DU GEWINNST"W"$":A=A+W
  33. 56 IF G<>F THEN PRINTSPC(3)"LEIDER EINE NIETE !":A=A-1
  34. 59 PRINTSPC(30)"-TASTE-"
  35. 65 GET C$:IFC$="" THEN 65
  36. 66 K=K+1
  37. 67 IF A<-50 THEN 3500
  38. 68 IF A>100 THENGOTO2000
  39. 69 GOTO 10
  40. 99 END
  41. 150 PRINT"   KOHLE:[146]"A"$  SPIEL NR."K"":RETURN
  42. 199 END
  43. 200 REM SPRITE
  44. 210 V=53248:POKE V+39,7:POKEV+23,29
  45. 220 FOR I= 0 TO 64:READ X:POKE 832+I,X
  46. 250 NEXT I
  47. 260 DATA 60,0,0,110,0,0,255,0,0,7,0,0,15,0,0,30,0,0,60,0,0,0,0,0,0,0,0,0,0,0,0,
  48. 270 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  49. 275 DATA 60,0,0,110,0,0,255,0,0,15,0,0,255,0,0,126,0,0,60,0,0,0,0,0,0,0,0,0,0,0
  50. 380 POKE 53269,1:POKE2040,13:POKEV+43,0
  51. 400 POKE V+0,P:POKE V+1,Y
  52. 405 RETURN
  53. 1000 PRINT"   [207][183][183][208] [207][183][183][208] [207][183][183][208] [207][183][183][208] [207][183][183][208] [207][183][183][208]   P
  54. 1002 [153]"   FN  + FN  + FN  + FN  + FN  + FN  +   A
  55. 1004 PRINT"   [165]  [170] [165]  [170] [165]  [170] [165]  [170] [165]  [170] [165]  [170]   C
  56. 1005 [153]"   USRUSRUSRUSR USRUSRUSRUSR USRUSRUSRUSR USRUSRUSRUSR USRUSRUSRUSR USRUSRUSRUSR   I
  57. 1008 F=INT(7*RND(1))+1
  58. 1010 RETURN
  59. 2000 REM
  60. 2001 O=INT(5*RND(1))+1
  61. 2003 ON O GOTO 10,2010,2020,2030,10
  62. 2005 GOTO 2000
  63. 2010 PRINTSPC(3)"DER LOSVERKAUEFER IST PLEITE !"
  64. 2012 FORI=1TO3000:NEXT:GOTO3000
  65. 2020 PRINTSPC(3)"DIE TOMBOLA WIRD GESCHLOSSEN !"
  66. 2022 FORI=1TO3000:NEXT:GOTO3000
  67. 2030 PRINTSPC(3)"DU HAST KEINE LUST MEHR !"
  68. 2032 FORI=1TO3000:NEXT:GOTO3000
  69. 3000 PRINT"[147]":POKE 53269,0
  70. 3002 PRINTSPC(3)"DU BIST EINWENIG TRAURIG DAS DU
  71. 3004 [153][166]3)"NICHT MEHR WEITER SPIELEN KANNST
  72. 3007 PRINTSPC(3)"DOCH DAS GEWONNE GELD IST EIN
  73. 3009 [139] A[177]100 [175] A[179]110 [167] [153][166]3)"KLEINER TROST !"
  74. 3010 [139] A[177]110 [167][153][166]3)"GROSSER TROST !"
  75. 3012 [153][166]3)"DU HAST "A" KOHLE GEWONNEN DAMIT
  76. 3015 PRINTSPC(3)"KAUFST DU DIR 100 PD DISKETTEN.
  77. 3020 [153][166]30)"-TASTE-"
  78. 3022 [161] D$:[139]D$[178]"" [167] 3022
  79. 3024 [153][166]3)"NOCH EIN GAME (J/N) ";:[133] Y$
  80. 3026 [139] Y$[178]"J" [176] Y$[178]"JA" [167] [138]
  81. 3027 [139] Y$[178]"N" [176] Y$[178]"NEIN" [167] 4000
  82. 3030 [153][166]3)"ENTWEDER JA ODER NEIN !!!":[137] 3024
  83. 3500 [153][166]3)"DU WIRST VON DER TOMBOLA
  84. 3502 PRINTSPC(3)"VERBANNT."
  85. 3505 GOTO 3024
  86. 4000 PRINT"[147]":POKE53281,0:POKE53280,0:PRINTCHR$(14)""
  87. 4002 POKE 53269,1:POKEV+0,60:POKEV+1,60
  88. 4004 PRINTSPC(5)" [212]OMBOLA [208]AC
  89. 4005 [153][166]5)"  VON (null)ETER STR$IEHM
  90. 4007 PRINTSPC(5)"   (W) BY 23.4.1991
  91. 4010 [129]T[178]1[164]20:[153]"--";:[130]
  92. 4012 [153]"  (null)ACIBOY IST BEI SEINEM (null)ONNTAGS
  93. 4013 PRINT"  [193]USFLUG IN EINE [198]EIER MIT EINER
  94. 4015 [153]"  (null)OMBOLA GEKOMMEN ! VALIFRIG VERSUCHT
  95. 4016 PRINT"  ER SEINE [203]OHLE (GELD) ZU VERMEHREN !
  96. 4018 [153]"  VALIN (null)OS KOSTET 1 $ DU KANNST UNTER
  97. 4019 PRINT"  6 [204]OSEN AUSSUCHEN INDEM DU [208]ACIBOY
  98. 4020 [153]"  MIT DEN (null)ASTEN +/- = RECHTS/LINKS
  99. 4023 PRINT"  STEUERST UND MIT ^ DAS LOS ZIEHST.
  100. 4025 [153]"DEF  (null)IEL VALRFOLG !!!
  101. 4028 PRINT"  [154](W) FUER [208]UBLIC [196]OMAIN
  102. 4030 [153][166]30)"-(null)ASTE-"
  103. 4034 [161] D$:[139]D$[178]"" [167] 4034
  104. 4037 [142]
  105. 5000 [143] PETER DIEHM
  106. 5002 [143] WALDSTR.58
  107. 5005 [143] 6149 RIMBACH 1
  108. 5010 [143] IHR DUERFT KOPIEREN !!!
  109.